Imports System.Xml
Imports System.Data.SqlClient
Imports System.Data
Public Class dPersonal
    Public Function Existe(ByVal Legajo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@Legajo", Legajo))
        Return (dConexion.Consultar("STORE_TblPersonalBUSCARFILTRADO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Legajo As String, ByVal NombreApellido As String, ByVal DNI As String, ByVal Domicilio As String, ByVal FechaNacimiento As String, ByVal Telefono As String, ByVal observaciones As String, ByVal Localidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pENombreApellido", NombreApellido))
        Parametros.Add(New SqlParameter("@pEDNI", DNI))
        Parametros.Add(New SqlParameter("@pEDomicilio", Domicilio))
        Parametros.Add(New SqlParameter("@pEFechaNacimiento", FechaNacimiento))
        Parametros.Add(New SqlParameter("@pETelefono", Telefono))
        Parametros.Add(New SqlParameter("@pEObservaciones", observaciones))
        Parametros.Add(New SqlParameter("@pECodigoLocalidad", Localidad))
        Return dConexion.ABM("STORE_TblPersonalAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal Legajo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Return dConexion.ABM("STORE_TblPersonalELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal Legajo As String, _
                                ByVal NombreApellido As String, _
                                ByVal DNI As String, _
                                ByVal Domicilio As String, _
                                ByVal FechaNacimiento As String, _
                                ByVal Telefono As String, _
                                ByVal Observaciones As String, _
                                ByVal Localidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If (Legajo <> "") Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        If (NombreApellido <> "") Then
            Parametros.Add(New SqlParameter("@pENombreApellido", NombreApellido))
        End If
        If (DNI <> "") Then
            Parametros.Add(New SqlParameter("@pEDNI", DNI))
        End If
        If (Domicilio <> "") Then
            Parametros.Add(New SqlParameter("@pEDomicilio", Domicilio))
        End If
        If (FechaNacimiento <> "") Then
            Parametros.Add(New SqlParameter("@pEFechaNacimiento", FechaNacimiento))
        End If
        If (Telefono <> "") Then
            Parametros.Add(New SqlParameter("@pETelefono", Telefono))
        End If
        If (Observaciones <> "") Then
            Parametros.Add(New SqlParameter("@pEObservaciones", Observaciones))
        End If
        If (Localidad <> "") Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", Localidad))
        End If

        Return dConexion.ABM("STORE_TblPersonalModificar", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal Legajo As String, _
                                    ByVal NombreApellido As String, _
                                    ByVal DNI As String, _
                                    ByVal Domicilio As String, _
                                    ByVal FechaNacimiento As String, _
                                    ByVal Telefono As String, _
                                    ByVal FechaIngresoMin As String, _
                                    ByVal FechaIngresoMax As String, _
                                    ByVal Estado As String, _
                                    ByVal Observaciobnes As String, _
                                    ByVal Localidad As Long) As DataSet


        Dim Parametros As ArrayList = New ArrayList
        If Legajo <> "" Then
            Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        End If
        If NombreApellido <> "" Then
            Parametros.Add(New SqlParameter("@pENombreApellido", NombreApellido))
        End If
        If DNI <> "" Then
            Parametros.Add(New SqlParameter("@pEDNI", DNI))
        End If
        If Domicilio <> "" Then
            Parametros.Add(New SqlParameter("@pEDomicilio", Domicilio))
        End If
        If FechaNacimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaNacimiento", FechaNacimiento))
        End If
        If Telefono <> "" Then
            Parametros.Add(New SqlParameter("@pETelefono", Telefono))
        End If
        If FechaIngresoMin <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaIngresoMIN", FechaIngresoMin))
        End If
        If FechaIngresoMax <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaIngresoMAX", FechaIngresoMax))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Observaciobnes <> "" Then
            Parametros.Add(New SqlParameter("@pEObservaciones", Observaciobnes))
        End If
        If Localidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", Localidad))
        End If
        Return dConexion.Consultar("STORE_TblPersonalBuscarFiltrado", Parametros)
    End Function
    Public Function ListarNombres(ByVal legajo As String, ByVal NombreApellido As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", legajo))
        Parametros.Add(New SqlParameter("@pENombreApellido", NombreApellido))
        Return dConexion.Consultar("STORE_TblPersonalBuscarNombres", Parametros)
    End Function
End Class
